fix aliased function names trampoline removal

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index f63e5842bc5e8572e4eeacb1829ca999d0d9b404..da1d3f160f097f0991896f98e355727b111e6753 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1657,7 +1657,8 @@ Return t if something was changed."
         (cond
          ((and subrp (not (subr-native-elisp-p f)))
           ;; Trampoline removal.
-          (let* ((maxarg (cdr (subr-arity f)))
+          (let* ((callee (intern (subr-name f))) ; Fix aliased names.
+                 (maxarg (cdr (subr-arity f)))
                  (call-type (if (if subrp
                                     (not (numberp maxarg))
                                   (comp-nargs-p callee-in-unit))